PC Users 1998 June/Cd Pc Users 9.iso/prog/inst/ssaver/setup.bas

BASIC Source File | 1995-11-29 | 476 b | 26 lines

' SETUP.FRM
Option Explicit

Sub cmdCancel_Click ()
    Unload Me
End Sub

Sub cmdOK_Click ()
Dim l0028 As Variant
    l0028 = WritePrivateProfileString(gc000C, gc0010, txtMaxLines, gc0008)
    Unload Me
End Sub

Sub Form_Load ()
    subD50 Me
    txtMaxLines = gv0006
    txtMaxLines.SelLength = 3
End Sub

Sub txtMaxLines_KeyPress (p1 As Integer)
    If  p1 < 32 Then
    ElseIf p1 < Asc("0") Or p1 > Asc("9") Then
        p1 = 0
    End If
End Sub